﻿Public Class frmregistrarproveedor

    Private Sub frmregistrarproveedor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' junior error, este codigo va en el boton :)
        'Dim myproveedor As New Proveedor
        'myproveedor.celularproveedor = TXTcelular.Text
        'myproveedor.codigoproveedor = TXTcodigo.Text
        'myproveedor.direcciónproveedor = TXTdireccion.Text
        'myproveedor.nombreproveedor = TXTnombre.Text
        'myproveedor.telefonoproveedor = TXTtelefono.Text
        'frmContenedor.ListaproveedorTotales.AddFirst(myproveedor)

    End Sub

    Private Sub BTNregistar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNregistar.Click

        'Dim myproveedor As New Proveedor
        'myproveedor.celularproveedor = TXTcelular.Text
        'myproveedor.codigoproveedor = TXTcodigo.Text
        'myproveedor.direcciónproveedor = TXTdireccion.Text
        'myproveedor.nombreproveedor = TXTnombre.Text
        'myproveedor.telefonoproveedor = TXTtelefono.Text
        'CType(Me.MdiParent, frmContenedor).ListaproveedorTotales.AddFirst(myproveedor)
        'MsgBox("SE REGISTRO AL PROVEEDOR DE FORMA EXITOSA")
        'Me.Hide()

        Try

            Dim myconeccion As New Conexion
            myconeccion.conectar()
            Dim consulta As String

            consulta = "insert into PROVEEDOR values ('" + TXTnombre.Text + "','" + TXTdireccion.Text + "','" + TXTtelefono.Text + "','" + TXTcelular.Text + "')"
            myconeccion.consulta(consulta)
        Catch ex As Exception
            MsgBox(ex)

        End Try
    End Sub
End Class